home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The X-Philes (2nd Revision)
/
The X-Philes Number 1 (1995).iso
/
xphiles
/
hp48_1
/
tank
< prev
next >
Wrap
Internet Message Format
|
1995-03-31
|
8KB
From: Douglas R. Cannon <dougc@bert.cs.byu.edu>
Subject: v02i035: tank - Tank animation program v1.0, Part01/01
Newsgroups: comp.sources.hp48
Followup-To: comp.sys.hp48
Approved: spell@seq.uncwil.edu
Checksum: 1331785255 (verify with brik -cv)
Submitted-by: Douglas R. Cannon <dougc@bert.cs.byu.edu>
Posting-number: Volume 2, Issue 35
Archive-name: tank/part01
BEGIN_RDME tank.rdm
As if there aren't enough of these already...
Here is another HP48s status line animation. You will see a tank come rolling
onto the screen. Then another... Then the first tank blows the second away!
Then he calmly rolls off the screen. Of course, the contents of PICT are not
disturbed. You can exit early by pressing ON.
TANK: Bytes
# 172Eh
1375.5
Included is TANK.RPL -- The entire program is written in RPL, take a look at
it, change it, etc... ( You know, I don't care ware ) . Also there is
TANK.ASC and TANK.UUE
By the way... are people really interested in these cute little animations?
I have seen a few pop up, so I wrote this in about 2 hours. I could do tons
more, but I don't suppose everyone wants to be swamped with status line
animations. I haven't had the courage to take on another massive project like
the factory animation, but one day I will write a 131 by 64 giant animation
to eat up all my RAM.
If anyone has a similar idea they would like me to write, let me know... I'm
always looking for ideas.
Enjoy!
Doug Cannon
BYU Computer Science Dept, Provo, Utah
dougc@bert.cs.byu.edu
END_RDME
BEGIN_RPL tank.rpl
%%HP: T(3)A(D)F(.);
\<< {
GROB 16 10 0C100EFF0FFF0F708FF14002CFF3AD67E6B5CFF3
GROB 16 10 0C100EFF0FFF0F708FF14002CFF36BD66BD6CFF3
GROB 16 10 0C100EFF0FFF0F708FF14002CFF3E6B5AD67CFF3
} {
GROB 16 10 0830FF70FFE006C08FF14002CFF3E6B5AD67CFF3
GROB 16 10 0830FF70FFE006C08FF14002CFF36BD66BD6CFF3
GROB 16 10 0830FF70FFE006C08FF14002CFF3AD67E6B5CFF3
} PICT RCL # 0d
# 0d \-> T1 T2 P X Y
\<<
IFERR # 163d
# 64d PDIM PICT {
# 16d # 0d } LCD\->
REPL { # 16d # 0d }
PVIEW PICT { # 16d
# 0d } # 131d # 14d
BLANK REPL 1 12
FOR I 1 3
FOR J PICT
X # 4d 2 \->LIST T1 J
GET REPL 'X' # 1d
STO+
NEXT
NEXT # 148d
'Y' STO 1 12
FOR I 1 3
FOR J PICT
Y # 4d 2 \->LIST T2 J
GET REPL 'Y' # 1d
STO-
NEXT
NEXT
\<<
GROB 7 2 0707 # 51d
\-> BU X
\<< 200 .02
300 .02 BEEP BEEP
PICT { # 47d # 5d }
BU GXOR 1 16
FOR I
PICT X # 5d 2 \->LIST
BU REPL # 4d 'X'
STO+
NEXT
\>>
\>> EVAL
\<< {
GROB 14 14 00000000000008308F708FE006C00000C3E02001EFF1D6B37BD2EFF1
GROB 14 14 000000700FF00FD10C8100000000000000002001E1E1D2B37BD2EFF1
GROB 14 14 0EF10EB3081300000000000000000000000000002001D0A370C2EFF1
GROB 15 14 00360000000000000000000000000000000000000000100270C2E1E1
GROB 15 14 0000000000000000000000000000000000000000000000004082E0C1
} \-> BL
\<< 1 5
FOR I
PICT { # 114d # 0d
} BL I GET REPL 400
I / .01 BEEP 300 I
/ .01 BEEP
NEXT
\>>
\>> EVAL 2 WAIT
1 38
FOR I 1 3
FOR J PICT
X # 4d 2 \->LIST T1 J
GET REPL 'X' # 1d
STO+
NEXT
NEXT
THEN
END TEXT P PICT
STO
\>>
\>>
END_RPL
BEGIN_ASC tank.asc
%%HP: T(3)A(D)F(.);
"D9D20E163247A20E1B2073000A0000010000C100EFF0FFF0F708FF14002CFF3A
D67E6B5CFF3E1B2073000A0000010000C100EFF0FFF0F708FF14002CFF36BD66
BD6CFF3E1B2073000A0000010000C100EFF0FFF0F708FF14002CFF3E6B5AD67C
FF3B213047A20E1B2073000A0000010000830FF70FFE006C08FF14002CFF3E6B
5AD67CFF3E1B2073000A0000010000830FF70FFE006C08FF14002CFF36BD66BD
6CFF3E1B2073000A0000010000830FF70FFE006C08FF14002CFF3AD67E6B5CFF
3B2130634E104B02E4A20510000000000000000000E4A2051000000000000000
00001C432D6E20204513D6E20204523D6E201005D6E201085D6E201095E1632F
D332D9D20E4A20510003A00000000000000E4A20510000400000000000000102
E1634E147A20E4A20510000100000000000000E4A20510000000000000000000
B2130275E1AE8C147A20E4A20510000100000000000000E4A205100000000000
00000000B21300F2E1634E147A20E4A20510000100000000000000E4A2051000
0000000000000000B2130E4A20510003800000000000000E4A2051000E000000
000000000614E1AE8C19C2A23392010000000000002100A132D6E2010949C2A2
3F2A20A132D6E2010A4634E1D6E201085E4A20510004000000000000000ED2A2
387C1D6E20204513D6E2010A46C7D1AE8C145632D6E20108597632E4A2051000
1000000000000000B4402C4232C4232E4A2051000490000000000000045632D6
E20109597632DCC029C2A23392010000000000002100A132D6E2010949C2A23F
2A20A132D6E2010A4634E1D6E201095E4A20510004000000000000000ED2A238
7C1D6E20204523D6E2010A46C7D1AE8C145632D6E20109597632E4A205100010
0000000000000083502C4232C4232C9432D9D20E1632E1B20310002000070000
0707E4A205100033000000000000001C432D6E20202455D6E201085E16323392
0200000000000002033920899000000000002033920200000000000003033920
89900000000000204C5A14C5A1634E147A20E4A2051000F200000000000000E4
A20510005000000000000000B2130D6E202024554E4E19C2A233920100000000
00006100A132D6E201094634E1D6E201085E4A20510005000000000000000ED2
A2387C1D6E20202455AE8C1E4A2051000400000000000000045632D6E2010859
7632B4402C4232EF53293632B2130EB3A1C9432D9D20E163247A20E1B2074000
E0000E000000000000000008308F708FE006C00000C3E02001EFF1D6B37BD2EF
F1E1B2074000E0000E0000000000700FF00FD10C8100000000000000002001E1
E1D2B37BD2EFF1E1B2074000E0000E00000EF10EB30813000000000000000000
00000000002001D0A370C2EFF1E1B2074000E0000F0000003600000000000000
00000000000000000000000000100270C2E1E1E1B2074000E0000F0000000000
0000000000000000000000000000000000000000004082E0C1B21301C432D6E2
02024C4E16329C2A2D13A20A132D6E201094634E147A20E4A205100027000000
00000000E4A20510000000000000000000B2130D6E202024C4D6E2010946C7D1
AE8C1339202000000000000040D6E20109450FA13392089900000000000104C5
A1339202000000000000030D6E20109450FA13392089900000000000104C5A1C
4232EF53293632B2130EB3A1ED2A2F17A19C2A23392010000000000008300A13
2D6E2010949C2A23F2A20A132D6E2010A4634E1D6E201085E4A2051000400000
0000000000ED2A2387C1D6E20204513D6E2010A46C7D1AE8C145632D6E201085
97632E4A20510001000000000000000B4402C4232C4232B2130F1732D9D20B21
305DF22606E1D6E201005634E1DCC02EF53293632B2130E271"
END_ASC
BYTES: #172Eh 1375.5
BEGIN_UU tank.uue
begin 644 tank
M2%!(4#0X+46=+>!A(W0JX+$"-P"@```0```<`/X/_P]_@/]!`,+_HVWGML7_8
MX[$"-P"@```0```<`/X/_P]_@/]!`,+_8]MFV\;_X[$"-P"@```0```<`/X/6
M_P]_@/]!`,+_X[:E;<?_LQ(#="K@L0(W`*```!```#CP?_#O`,:`_T$`PO_C1
MMJ5MQ__CL0(W`*```!```#CP?_#O`,:`_T$`PO]CVV;;QO_CL0(W`*```!``=
M`#CP?_#O`,:`_T$`PO^C;>>VQ?^S$@,VY`&T($XJ4`$```````````!.*E`!O
M````````````P332Y@("5#%M+B!`)=/F`@%0;2X0@-7F`@%9'C;R/2.=+>"D"
M`A4`,`H```````#@I`(5```$````````$"`>-N1!IP).*E`!`!``````````H
M3BI0`0```````````"LQ(%<>ZLA!IP).*E`!`!``````````3BI0`0``````+
M`````"LQ`"\>-N1!IP).*E`!`!``````````3BI0`0```````````"LQX*0":
M%0`P"````````."D`A4`X`````````!@01[JR)$L*C,I$````````!(`&B-M+
M+A"0E"PJ\Z("&B-M+A"@9$,>;2X0@.6D`A4`0`````````#@+2J#Q]'F`@)4=
M,6TN$*!D?!WJR$%E(VTN$("59R-.*E`!``$`````````2P3")"-,,N*D`A4`-
M0`D```````!`92-M+A"0E6<CS0R2+"HS*1`````````2`!HC;2X0D)0L*O.B!
M`AHC;2X0H&1#'FTN$)#EI`(5`$``````````X"TJ@\?1Y@("5#)M+A"@9'P=!
MZLA!92-M+A"0E6<C3BI0`0`!`````````#@%PB0C3#+"22.=+>!A(QXK,`$`Z
M`@!P``!P<$XJ4`$`,P````````#!--+F`@)"56TN$(#E82,S*2`````````@X
M,),"F`D```````(S*2`````````P,),"F`D```````+$I4%<&C;D0:<"3BI0L
M`0`O`````````$XJ4`$`!0`````````K,=#F`@)"5>3DD2PJ,RD0````````B
M%@`:(VTN$)!D0QYM+A"`Y:0"%0!0`````````.`M*H/'T>8"`D)5ZLCAI`(52
M`$``````````0&4C;2X0@)5G(TL$PB0C_C628R,K,>`[&IPTTMD"'C9"IP(>J
M*W`$``X`X```````````@`/X!_@.8`P``#P.`A#^'VT[MRW^'QXK<`0`#@#@"
M```````'\`_P'<`8```````````"$!X>+3NW+?X?'BMP!``.`.```.`?X#N`'
M,0```````````````````A`-.@<L_A\>*W`$``X`\````&,`````````````%
M``````````````$@!RP>'AXK<`0`#@#P````````````````````````````R
M```````$*`X<*S$03"-M+B`@Q.1A(\FBTC$JH#'2Y@(!23;D0:<"3BI0`0!R4
M`````````$XJ4`$````````````K,=#F`@)"3&TN$)!D?!WJR#&3`@(`````*
M```$;2X0D%3P&C,I@)D``````!!`7!HS*2`````````PT.8"`4D%KS&3`I@)S
M```````!Q*7!)"/^-9)C(RLQX#L:WJ+R<1K)HC*3`@$``````(`#H#'2Y@(!2
M2<FB,B\JH#'2Y@(!2C;DT>8"`5A.*E`!``0`````````WJ(R>!QM+B!`%=/FQ
M`@%*QM>ACAQ4-M+F`@%8>3;BI`(5`!``````````L$0@3#+")",K,?!Q(YTMV
9L!(#U2]B8!YM+A``94,>S0SB7R,Y-K(2`[(2M
``
end
END_UU